home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / epsilon.arc / VERSIONS.ARC / MSS.E < prev    next >
Encoding:
Text File  |  1986-04-06  |  1.2 KB  |  63 lines
  1. /*
  2.  * Manuscript mode for EPSILON.
  3.  *
  4.  *  Copyright (c) 1986 by David Dyer-Bennet
  5.  *  Permission for non-commercial use is hereby granted; all other
  6.  *  rights are reserved.
  7.  *
  8.  *  Written by David Dyer-Bennet
  9.  *  Terrabit Software
  10.  *  4242 Minnehaha Ave S
  11.  *  Minneapolis, MN 55406
  12.  *  Sysop of Fido 14/341, The Terraboard, (612) 721-8967 3/12/24 24hrs
  13.  *  (612) 721-8800 NOT 24 hrs!  More like noon to midnight
  14.  */
  15.  
  16. /*
  17.  *  Revision history:
  18.  *
  19.  *      Edit    Date        Who     Description
  20.  *
  21.  *  Version 1.0
  22.  *      1       19-Mar-86   DD-B    Initial creation
  23.  *      2       6-Apr-86    DD-B    Add versions
  24.  */
  25.  
  26. #include <eel.h>
  27. #include "versions.h"
  28.  
  29. keytable mss_tab, mss_cx_tab;
  30.  
  31. when_loading ()
  32. {
  33.     mss_tab[CTRL('X')] = find_index("mss-cx-tab");
  34. }
  35.  
  36. command count_mss_pages () on mss_cx_tab ['l']
  37. {
  38.         int count = 0, start = point;
  39.     
  40.     point = 0;
  41.     while (nl_forward()) {
  42.         count++;
  43.     }
  44.     point = start;
  45.     say ("%d pages, %d lines", count/25, count%25);
  46. }
  47.  
  48. command mss_mode ()
  49. {
  50.     fill_mode = 1;
  51.     margin_right = 65;
  52.     mode_keys = mss_tab;
  53.     major_mode = strsave ("Mss");
  54.     make_mode ();
  55.     vers_edit = 1;
  56.     versions_edit ('M');
  57. }
  58.  
  59. suffix_mss ()
  60. {
  61.     mss_mode ();
  62. }
  63.